home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / HyperCard / HyperCard 1.2.2 International / HyperCard Danish (DK-1.2.2) / Idestakke / Baggrundsideer / background_8095.txt < prev    next >
Text File  |  1988-12-19  |  4KB  |  185 lines
  1. -- background: 8095 from stack: in
  2. -- bmap block id: 39341
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on newCard
  8.   get field "diskNumber" of previous card
  9.   add one to it
  10.   put it into field "diskNumber"
  11. end newCard
  12.  
  13. on openBackground
  14.   push recent card
  15. end openBackground
  16.  
  17.  
  18. -- part 2 (field)
  19. -- low flags: 00
  20. -- high flags: 4000
  21. -- rect: left=51 top=95 right=177 bottom=236
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 0
  25. -- font id: 3
  26. -- text size: 12
  27. -- style flags: 256
  28. -- line height: 16
  29. -- part name: Etiket
  30.  
  31.  
  32. -- part 3 (field)
  33. -- low flags: 00
  34. -- high flags: 0000
  35. -- rect: left=301 top=85 right=264 bottom=481
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 0
  39. -- font id: 3
  40. -- text size: 14
  41. -- style flags: 256
  42. -- line height: 18
  43. -- part name: 
  44.  
  45.  
  46. -- part 5 (button)
  47. -- low flags: 00
  48. -- high flags: 0004
  49. -- rect: left=453 top=297 right=336 bottom=495
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 32670 / 32670
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: 
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   show all cards
  61. end mouseUp
  62.  
  63.  
  64.  
  65. -- part 7 (button)
  66. -- low flags: 00
  67. -- high flags: 0000
  68. -- rect: left=368 top=264 right=289 bottom=395
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 1014 / 1014
  71. -- text alignment: 1
  72. -- font id: 0
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: Prev
  77. ----- HyperTalk script -----
  78. on mouseUp
  79.   visual effect wipe right
  80.   go to previous card
  81. end mouseUp
  82.  
  83.  
  84.  
  85. -- part 8 (button)
  86. -- low flags: 00
  87. -- high flags: 0000
  88. -- rect: left=396 top=264 right=289 bottom=423
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 1013 / 1013
  91. -- text alignment: 1
  92. -- font id: 0
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: Next
  97. ----- HyperTalk script -----
  98. on mouseUp
  99.   visual effect wipe left
  100.   go to next card
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part 11 (button)
  106. -- low flags: 00
  107. -- high flags: 0004
  108. -- rect: left=406 top=297 right=336 bottom=448
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 20186 / 20186
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: Diskettesortering
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   if the name of this stack contains "Baggrundsideer"
  120.   then
  121.   show card field 1  -- explain why not sort here
  122. else
  123.   answer "Sort√©r alle kortene i denne stak efter:" with "Navn" or "Nummer" or "Annuller"
  124.   if it is "Navn"
  125.   then sort by first word of first line of field "Etiket"
  126. else if it is "diskettenummer"
  127. then sort by field "diskettenummer"
  128. end if
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 12 (button)
  134. -- low flags: 00
  135. -- high flags: 0004
  136. -- rect: left=1 top=20 right=47 bottom=30
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 21700 / 21700
  139. -- text alignment: 1
  140. -- font id: 0
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: Home
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.   visual effect iris open
  148.   go Home
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 13 (button)
  154. -- low flags: 00
  155. -- high flags: 0000
  156. -- rect: left=460 top=263 right=291 bottom=497
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 1012 / 1012
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: Return
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   visual effect iris close
  168.   pop card
  169. end mouseUp
  170.  
  171.  
  172.  
  173. -- part 14 (field)
  174. -- low flags: 00
  175. -- high flags: 4000
  176. -- rect: left=210 top=56 right=74 bottom=236
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 65535
  180. -- font id: 3
  181. -- text size: 12
  182. -- style flags: 256
  183. -- line height: 16
  184. -- part name: Diskettenummer
  185.